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Hi. 

Last montli (17th September) a crowd of 68 cajne along to tlie meeting. We 
now liave 118 'financial' members, witli many leaving two or more family 
members which come along to our meetings. Hopefully, everyone knows now, 
that our meetings are on every fourtli Monday, not tJie fourtli Monday of ilie 
month. However, please maik your calendars with tlie meeting dates from now 
to Cliristjnas:- 

15 October 1984 - tonight 
12 November- 1984 
10 December 1984 

By tlie way, Rakon liave a couple of EACA recorders left at $119.50 each. 

Re tape copying - we liave liad a few problems sorting tliis out, but 
hopefully we now liave it licked!! It liasn't actually been too bad, there 
haven't been many tapes returned. Probedily about lb out of hundreds. 
One cliap who said at tlie meeting how a tape he had gut from us wouldnt 
load, turned out to be talking about a Rakon tape. 

All tapes tliat ore returned to me for recopying liave to be posted on to 
Ken, who recopies tliem, tlieii posts tliem back to me. I tlieii have to post 
tliem back to you. So, from tliis, you can see where the delay comes in for 
your recopied tapes to be sent back to you, can't you. Probably about a 
week in tlie Post Office's hands, let alone tlie time spent checking and 
recopying your bad tape. So, don't panic if you don't get your tape back 
witliin tlie first few days of posting it off to me. 

We would also like to point out, that in line witli otlier software producers 
in New Zealand, we do not give a warranty on software. If you cannot load 
your tape, we will re-copy it for- you, but under- no circumstances are we 
prepared to give you your money back. We realise tliat in a lot of cases 
you are buying 'sight unseen', but where else can you get sucli ciieap 
software??? And we do give a bit of leeway where country members are 
concerned. 

We liave our first problem with a member now, regarding tlie abovp paragrapli. 
Mr Stirling Barr is taking us to the Small Claims Court, because we will 
not return his money to him after he purchased a Word Processing tape last 
month. We have pointed out tliat we are quite willing to redo his tape if 
it doesn't load, but the problem seems to be tliat Allan Clarke has left 
some errors in his program. It is our understanding that Allan Clarke lias 
made his programs available witli the agreement tliat tliere could be errors 
whicli he will fix and update copies sold wlien he returns to New Zealand 
next year. It is my considered opinion, as a secretary/ typist of some 100 
years (no, perhaps only 19 years) tliat tliis word processing tape is quite 
good. I liave now used tliree word processing tapes on tlie Colour Genie, and 
of tlie three, I feel tliat Allan Clarke's tape stands out, apart from tlie 
annoying liabit which is built in to tlie program deliberately, of wiping out 
all your blank lines (unless you have remembered to put in the special 
symbol) when printing. 17 people liave now purcliased this program, do you 
all really find it 'full of errors'? 

However, Mr Barr, it really wasn't necessary to ring and abuse my husband, 
was it? He knows nothing at all about tlie Colour Genie group and what goes 
on tlierein. 
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Regarding tlie software, right at tlie back of this magazine you will find 
two blank order forms. If you could use tliese forms when ordering items 
from us in future, this will make it easier tlian writing out letters. If 
tliese could bo filled out before you come to the meeting, it would also 
help my hand (tlie one tliat gets writers cramp!) 

Can someone please help Ray Dyer (5 Browne Street, Kawerau) with his common 
Philips TV rolling problem. Could someone please write to hini witli a fix 
for tliis. I know Olwen gave tlie cure at one of the early meetings. Can 
anyone remembei wliat it was? 

- Nola Huggins 


E R R A R T A 

Easycod e 

There is an error in line 16200 - delete the first of two quote marks 
(keybounce again!!) Keitli McGill 


George Muzyka would like to make tlie following corrections to tlie 
Programmable Graphics Generator, published in a recent issue. 

570 IF PEEK(16444)=8 THEN C=C-40:IF C < 125 THEN C=C+40 ELSE PRINT@C.” " 
580 IF PEEK( 16444) =32 THEN C+C-1:IF ( (C/40)-( INT(C/40) ) )»40 < 5.5 THEN 
C=C+1 ELSE PRINT0C,'' ” 

590 IF PEEK( 16444) =64 THEN C=C+1:IF ((C/40)-(INT (C/40)))#40 >21.5 THEN 
C=C-1 ELSE PRINT@C," " 

600 IF PEEK! 16444 )=16 THEN C=C+40:IF C >7 THEN C=C-40 ELSE PRINTOC," " 
1610 K$=INKEY$ 


200 sliould be PRINT@880 not 920 


LIST OF FINANCIAL COLOUR GENIE GROU P MEM B ERS AS AT 24/9/84 


ALVAREZ. Fred 

49 Astley Ave, New Lynn 

S73 

120 


ANDREWS. Rhys 

18 Braniley Drive .Pakuranga 



Student 

AUSTIN. DCS 

Karaka North Rd .R .D . 1 .Fapakura 


Countiry 

AVIS, Stephen 

12 Ruru Crescent.Putaruru 

7750 

Country 

BARKER , Anne a family 

1 Carbory Place, Manor ewa 

267 

4833 


BARR, Stir ling 

32 Kapuka Rd.Mangere Bridge 

668 

551 


BERMAN, Robert 

16 Asbury Cres. Campbells Bay 

478 

4022 

Student 

BISHOP. Chris 

b Jenanne Place, Glenfield 

444 

5301 


BOYLE , Danny 

224 Park St, Winton, Invercargill 


Country 

BROOKE. Richard 

PO Box 700, Hastings 



Country 

BURROWES, David 

86 Wood St .Palmerston North 



Country 

BURTON. Ron 

P 0 Box 203 , Te Aroha 

625 

Man. 

Country 

BYRNES. Ces 

31 Roschill Drive.Papakura 

298 

4107 

Country 

CAIRNS. Keith 

Box 36 .Ngongotaha, 



Country 

CAMERON. Sean 

3A Quovadus Place, Red Beach 



Student 

CARIAN, Craig 

42A Comins Cres, Mission Bay 
Postal Box 4326 .Auckland 

583 

061 


COLLINS, Dick 

Box 301 .Paraparaumu 

36431PRM 

Country 

COLSON, Keith 

21 Stapleford Cres. Browns Bay 



Student 

COWEN.J. 

Milsun Line 5 R.D. Feilding 



Country 

CRANE, Darrell 

64 Ranald Ave.Cleiibr ook Beacli 




CRUMP. S.J. 

No . 6 R . D . , Gore 



Country 
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DICKENS. DrenL 

154 Normandale Rd .Normal dale 

666 133 

Country 

DIX, Keith 

21 Adel Place , Weymouth 

267 0434 


DONALDSON, David £. family 80 Woolfield Rd.PapatueLoe 

278 7598 


DRAPER, Mr C.F. 

C/- Lakeland TV tx Stereo. 

Dux 892 . Taupo 

88 888 

Country 

DUNNINGHAN, Neville 

5 Kingswood Rd.Papatoetoe 

278 3105 


DYER , Ray 

5 Browne Street .Kawerau 

6199 Kaw, 

Country 

EDWARDS, Don 

10 Fairview Ave.Feilding 


Country 

ELLEY.f aifiily 

40 Mary Dreaver St, Block. Bay 

675 024 


ELISAK.Alex <i. Kevyn 

14 Awakino Place, Manur'ewa 

26b 7423 


FISHER, Peter 

ti4 Old Wairoa Rd.Papakuta 

298 4654 


HERBIE, George 

141 Flanshaw Rd,Te ALatu Sth 

83 46028 


GOLDIE, Willie d Andrew 

24 Douglas Ave, Mt Albert 

867 533 


GORDON, Terry 

99 Reeves Rd.Pakuranya 

566 564 


GREEN , Gordon family 

62 Rajkot Tce,KJiandallah,Wgn4, 


Country 

GREEN, Mike 

49 Astley Ave, New Lynn 

873 120 

Student 

GROVE, Chris 6. family 
GRUSNING. Neill 

4 Salem Place, Torbay 

43 Beatty Rd, Pukekohe 

86 712 

Country 

GURNEY, P, A. 

10 Norfolk Rise, Waiuku 

59 682 

Country 

HAMILL, family 

26 Ashlynne Ave,Papatoetoe 

273 9585 


HARNESS, Justin 

1 8 Wynyar d Rd , Mt Eden 

602 189 

Student 

HARRIS, Bert 6. family 

15 Seakens Way. Glen Eden 

313 4660 


HEAP, f ami ly 

23 Leatham Crescent, Papakura 

298 5550 


HILL, Gert aid tx family 

86 Wallace Rd.Papatoetoe 

278 3446 


HIGLOP.Adam 

3 Martin Gr .Normandale, Lower Hutt 

Country 

HOLES, Freda £. faiidly 

10 Rowan Terrace, Te Atatu Sth 

83 45244 


HOLT, Bern ie 

HOYES, Peter 

HUGGINS, Nola 

P.O. Box 23-303 . Paj-iatoeioe 

17 Luton Avenue, Pakuranga 

612 Mt Albert Rd. Royal Oak 

655 718 


HYNDS,Ken 

13 Ngahue Cres, Whenuapai 

416 7404 


IRVINE, Robyn 

430 Massey Rd.Mangere East 

275 7007 


JONES, Murray 

b Shearman Grove, Tauranga 


Country 

JOYCE, Noel D. 

196 Conon Street, Invercargill 


Country 

KANE, Mrs Deidre 

31 Homona Rd.Greenlane 

542 254 


KUMAR, Susil 

FI. 10, 7 Tralee Place, Hamilton 

68 262 

Country 

KAY, Ross 

2/9 Lonyieach Drive, Glen Eden 

318 4818 


LAMBOURN,A P & family 

32 Mead St, Avondale 

886 91S- 


LANGDON,Hark 

6 Trias Road . Glenf ield 

444 4247 


LEWIS, Stuart 

39 Hillcrest Ave.Rotorna 

— 

-Couritry 

LIDDEL, family 

91 Taikata Rd,Te Atatu Nth 

834 7129 

LOCKERBIE, Claire S. Roger 

63 Grampian Road. St Heliurs 

580 270 


LYALL.R.G. 

78 Dimock St.Titahi Bay.Wgn 


Country 

MacALPINE.Mr E. 

45 Hutu St,Te Awamutu 


Country 

McCREEDY,Bett 

16 Walpole St.Elierslie 

597 308 

MacDONALD. Iain 

3 Amy Street, Eller si le 

596 412 


McFARLANE, Tom 

2/14 Catkin Cres.Papatoetoe 

278 2366 


McGILL, Keith 

15 Maiiapouri Place. Pakuranga 

565 643 


MAGGS, Philip 

21 Cheltenliam Rd.Devonport 

450 029 


MANAWARU SCHOOL 

R.D.l, Te Aruha. 


Country 

MAWBY, David J. 

Attn: Brian Felluws.Pi incipal 
40 Gordon Tee. Gore 

5000 

Country 

MELLARS,Les 

METCALFE, E.K. 

MILLAR, Robert 

564 Beach Road, Rothesay Bay 
Box 13031 .University of 
Waikato P.O. , Hamilton 

17 Oiiewa Rd, Northcote 

486 504 

Country 

Student 

MILLER. Paul 

C/- WO's 6 SNCO's Mess, 

RNZAF Base , Wigram . Clir istchur ch. 

Country 
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MILLS, Andrew 

59 Blackbeech St , Akatar awa . 





Lower Hutt 



Country 

MITCHELL. Geoff 

Box 95 .Mangawhal .Northland 

68 1757 

Country 

MULLEN, Peter 

54 Park Road.Glenfield 

444 

9155 


MUZ YKA , George 

33 Vermont St, Ponsonby 

789 

176 

Student 

NICHOL, Bryce 

C/- FEPB, Private Bag.Pukekohe 

299 

6203 

Student 

NOGAJ.Jan 

Mauku Street , Manaku , Rotorua ? 



Country 

NOWILL, Malcolm 

18 Fd Regt RNZA , Papakura Camp 




O' CALLAHAN, Robert 

8 A Komaru St.Remuera 




PAKES, Robert 

3 Russell Crescent, Rotorua 



Country 

PETERS. D.R. 

8 Tane Lane, Whakatane 



Country 

PHILLIPSEN.Ml H.E. 

Box 409, Havelock Nth.Hawkes Bay 


Country 

PUKU.Joe 

33 Dal loch Street .Manurewa 




QUAIN, family 

12 Wilkinson Way, Browns Bay 




RAKON COMPUTERS LTD 

Private Bay , Newmarket 

600 

421 


RICHMOND, Bob 

161 Browns Bay Rd, Browns Bay 

478 

4745 


RIGNEY.Cene 

Kal lar oa Rd , R . D . 2 , Ny orig otaha 



Country 

ROBINSON, Ian 

4 Kingsley Street , Gisborne 



Country 

ROOTS, Ernie 

512 Glenfield Rd,Glenfield 

444 

9669 


RUSSELL, Andy 

2 Takitimu St, Wlienuapai 

416 

6249 


RUSSELL, Bill 

25 Sturdee Road , Manurewa 




SALT.T.K. 

92 Omapere St,Whitby ,Wgtn. 



Country 

SAUNDERS, A. M. 

96 Oriel Ave,Tawa. Wellington 



Country 

SAVILLE, family 

7A Southlynn Rd,Titiranyi 

817 

6491 


SCOTHERN.D.J. 

64 Princess Road, Tauranga 



Country 

SEATON, Michael 

56 Compton St.Northcote 

481 

042 

Student 

SEYB, Bruce b family 

127 Cannongate St,Birkdale 

439 

746 


SIMPSON, Ron 

25 Renata Cres,Te Atatu Nth 

334 

6987 


SMITH. Barry 

23 Eliot St, New Plymouth 



Couritry 

SPRATT.Dave 

11 Ball Place, Mt Rosklll 

b75 

676 


STAMP. Linton 

11 Mary Beth Place, Papakura 




STARKE, Mrs L.M. 

Ur quhar ts Rd , Karaka . R , D , 1 . , 





Papakura 



Country 

STEPHENS, Frances iifamily 

35 Raurenga Ave, Royal Oak 

654 

120 


STRANAGHAN, family 

29 Haselei Crec,Howick 

535 

7450 


SWASBROOK, family 

43 Pickwick Parade, Howick 




TODD, A. J. 

46A Hutton Str eet , Otahuhu 

276 

7886 


TRUE . Mur ray Si Anne 

4/503 Oliphant Rd, Hastings 



Country 

TUAVERA, Jeffery 

732 Sandringham Rd,Sand 

693 

986 


VERMUELEN.Mi' D.P. 

Strathmore Rd, Repot oa 



Country 

WALKER, Barry L Irene 

20 Ellesmere Cres.Palm.Nortli 



Country 

WALKER, David 

Kiwitea.No 7 R.D.Feilding 



Country 

WAWMAN.Don 

5/53 Bellevue Rd,Mt Eden 

797 

440 X685Cwork) 

WESSELING, Ralph 

112 Pt View Drive. Papatoetoe 

535 

6134 


WILLIAMS, 01 wen 

3/26A West End Rd, Herne Bay 

761 

954 


WILTON- JONES, Jason 

11 Mountain Rd, Henderson 

837 

0564 

Student 


Total - 118 members 


* -Coinmittee Meiidsers 
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PUNTER $12.00 

A horse-race-siniulati on/game. This is really good, the horses with their 
jockfeys look very realistic racing across the screen. ATiothei 
thinking-type game, definitely not arcade. Put bets on the horses you 
tliirik Will win. Can ask what the horse's form is. Up to nine people can 
play at the same time. 


GENIE TREK $12.00 

Another 'Space Trek' game, like tlie one available now. I haven't tried it 
out yet, but it has received a very good write-up in England. 


ROCKSOFT GAMES $12.00 

Four games on the one tape, all called up from a menu. Good value. 


ROCKSOFT UTILITIES $12,0U 

Four' utilities ail on the one tape, also called up from a menu. A screen 
scroller, title-producer, a program to load or save tapes faster or- slower, 
and a Genie-plot program, with which you can draw pictures and save them to 
tape. 


BACH ORGAN $12.00 

This IS another great program - turns ilie Genie into an organ. 


FULL SCREEN EDITOR $20.00 

Move your cursor all over the screen at will. Price includes 4 page 
manual. Available either from us, or from Phil Loveyrove. at Rakon 
Computers Ltd. A terrific utility. We would prefer ttiat you buy from us 
of course, then we make a little bit on each tape sold. 


INVOICING $15.00 

A complete Sales Invoice, well set out. When you Iiave finished invoicing, 
it gives you a total of what has been invoiced, Basic prugraii\ will need 
VAT part deleting. 


NOMINAL LEDGER 

A complete ledger program for the Colour Genie. 


$15.00 
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E. A. Jackson's software is now availaLle - these are:- 


P.O.B. GRAPHICS EDITOR $10.00 

This is a program that allows you to create your own 'Picture Object 
Blocks'. There is a two page manual to go with it, which includes full 
instructions, and another small program on how to use the POBs once you 
have created them. 


SHAPE DESIGNER $10.00 

This is an extremely good program, allowing you to design sliapes on the 
screen, using a Shape cursor. Two pages on how to use it, plus another 
small program on how to use tlte shapes once created. 


GENIE CALC $15.00 

This program is a spreadsheet that shows tliree columns on the screen at one 
time. Has a three page manual, which is very comprehensive. 


ELECTRONIC DESC $lS.Ci0 

This is the program we have all been waiting for. It includes a 

calculator, name/telephone index (with sorting and searchirig capabilities), 
calendar, jotter/diary pad, and a budgeting program. Also includes a 
comprehensive two-page manual on using this program. 


With any of tlie utility programs, a free copy of Etch and Sketch and/or 
Toolkit . will also be included. Etcli and Skctdi lias one page instructions. 


LEARN TO COUNT WITH FREDDY FROG $10.00 

A game for young children, which teaches counting and basic arithmetic. 


PONTOON/SNAKE SNATCH $10.00 

This program includes two games on the one tape. Snake Snatch is the same 
as the 'Snake' program that Rakon have. 


DEMON DERBY AND GAMES BOARD $10.00 

More games. 


HI-LO and TUNES & COLOURS $10.00 

Hi-Lo is a very good version of 'Play your cards right' (TV game). Tunes 
and Colours is a 'Simon Says' game. 
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SCREEN DUMP TO PRINTER Chris Bishop 

Printers will not accept •’PRINT .D" statments because they 
may not be in order in the program 

30 PRINTS) 345, "HELLO" 

40 PRINTS) 160, "GOODBYE" 

The -following short program is a screen dump and can be 
added to your own programs. It scans the screen memory 
locations in order from top left to bottem right and prints 

what it sees 
1 0000 P= 1 7400 

10010 FOR J-0 TO 24 (23 for old roms) 

10020 FOR S=P TO 0-1-39 
10030 B=PEEK<S) 

10040 LPRINT CHR$ (G) ; : LPRINT" "; 

10050 NEXT 5 

10060 LPRINT CHR$(128) 

10070 P=P-t-40 
10080 NEXT J 

The next line is a GOTO or RETURN to suit your program. 


You will see that we have made the newsletter a little smaller. Witli 
sending out back issues to everyone, I have had to hire a photocopy machine 
for a month, I really couldn't load poor Chris down with any more - he has 
already got a pile to do. So, with this, it is now costing $1.60 to 
photocopy each magazine - quite a cost. Therefore, we ai'e going to have to 
cut down the size of the magazine, so that we don't have to put the cost of 
the subscription up. 

Please note that we ai'e putting postage costs to country members up to 
$1,50 from now on. The bubbly bags cost 60c each for the large one we use, 
which only leaves 40c for cost of postage. As postage usually costs more 
than 40c we are losing money. Thank you to those country members (like 
Neill Grusning and Ces Byrnes, and Christchurch group to najue a few) that 
have been adding more money to their postage costs. 

Also, please note that Technical Manuals are now freely available from the 
Group. They cost $12.00 each plus $1.50 postage and package. 
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10 REM OTHELLB/REVERSI 
20 REM PETER B MflGGS 
30 REM_BYTE NOVEMBER 1379 
40 REM CBVF'RtED TO COLOUR GENIE 
105 DIMP(IDO) 
no DIMBClOO) 

112 DIMC(IOO) 

113 DIMD<S) 

114 DIME(IDO) 

115 RANDOM 

171 D(n = l 

172 DC2)=11 

173 DC3)=10 

174 D(4)=9 

175 D(5;)=-l 
17G DC6)=-11 
177 D(7)=-10 
173 D(S:)=-3 
135 G0SUB3000 
200 GQSUB3000 

205 IFQ.LT.5 THEN 235 
215 G0SUB1300 
220 IFT=1 THEN 235 
225 T3=T3+1 

22G IF T3. LT.2 THEN 254 

223 PRINT:PRINT»^THE GAME IS OVER^^ 

223 N-0 

230 J=0 

231 F0RZ=12 TO 33 

232 IFB(Z)=-1 THEN 233 

234 IFBCZ). LT. . GT. 1 THEN244 
3 — 3 1 

237 GOTO 244 

233 N=N+1 

244 NEXTZ' 

245 PRINT^^BLflCK HAS ^^;N;^^WHITE HAS ^’';3;^^PIECES^ 
243 PRINT^^DO YOU WISH TO PLAY AGAIN 

(0=N0, 1=YES^^; 

250 INPUT T 

251 RESTORE 

252 IF T=1 THEN 135 

253 GQT03333 

254 PRINT 

255 IF P=1 THEN 2G0 

25G PRINT'^^BLACK HAS NO PLAY, LOSES TURN'^'^ 

253 G0T0350 

2E0 PRINT^^WHITE HAS NO PLAY, LOSES TURN’’^ 

270 GOTO 350 

235 GOSUB 1100 


£>-rHf^Luo /*z. 
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380 IF M.LT..GT.1 THEN 500 
330 IF Q.GT.4 THEN 430 

402 M=45 

403 IFB(M:)=2 then 540 

404 M=M+1 

405 GOT04O3 
430 G0SUB3000 

500 IFM. LT. 1 THEN SOO 

510 IFM. GT. 100 THEN SOO 

520 IFQ. GT. 4 THEN 600 

530 IFB(M).LT. .GT. 2 THEN SOO 

540 BCM)=P 

550 G0TQ33O 

GOO G0SUB1400 

640 IF T. LT..GT. 0 THEN 350 

300 PRINT »»ILLEGfiL PLAY"^^ : FGRX=0TG200 : NEXT 
320 GOTO 200 
330 Q=Q+1 
350 P=-P 

355 IF ECM) .LT..GT.64 THEN 200 
360 GOSUB 5000 
370 G0TG20Q 

1100 PRINT 

1101 PRINT^^IF YOU WANT THE COMPUTER TO PLAY, 
ENTER 0,0^^ 

1115 IF P=1 THEN 1140 
1120 PRINT^'^BLACK^^; 

1130 GOTO 1145 
1140 PRINT ^^WHITE’’'; 

1145 PRINT^^S TURN, ENTER X,Y^^; 

1150 INPUT X,Y 
1160 M=X+1+10XY 
1170 RETURN 

1300 T=1 

1301 PRINT ^^CHECKING’'^; 

1302 M=1 

1310 IFU.LT.4 THEN 1313 

1316 U=0 

1317 PRINT 
1313 U=U+1 

1320 IFBCM). LT. . GT. 0 THEN 1330 
1330 N=1 
1340 J=D(N:) 

1350 IFBCM+J). LT. . GT. -P THEN 1335 
1370 K=M+J+J 

1330 IFB(K)=3 THEN 1335 

1331 IFB(K)=0 THEN 1335 

1332 IFB(K)=P THEN 1336 

1333 K=K+J 

1334 G0T0 1330 

1335 N=N+1 

1336 IFN. LT.3 THEN 1340 

1330 M=M+1 

1331 IFM.LT. 30 THEN 1310 

1332 T=0 
1334 RETURN 
1336 T3=a 

1333 RETURN 
1400 T=0 
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O'TVACPPo 4^3 

1410 IFB(;M)=0 then 1430 
RETURN 
N=1 

j=d<n:) 

IFB(M+J).LT. .GT. -P THEN 1700 
K=M+J+J 

IFB(K)=3 THEN 1700 
IFB(K;)=0 THEN 1700 
IFBCK)=P THEN 1530 
K=K+J 
GOTO 14S0 
T=1 
L=M 

IF L=K THEN 1700 
B(L)=P 
L=L+J 
G0T01532 
N=N+1 

IFN. LT.B THEN1440 
RETURN 

PRINT^^THINKING^’; 

F=3333 

FQRZ=12 TQ 33 
C C Z ) =B ( Z ) 

NEXTZ 
M=12 

IFU. LT. 4 THEN 3753 
U=0 

PRINT’''^. 

U=U+1 
GQSUB14aa 
IF T=0 THEN 3360 
GQSUB3300 
IFH. GT.F THEN 3340 
IFH.LT. F THEN 3310 
Z = RND(:o:) 

IFZ.GT..7 THEN3S4a 
F=H 
W=V 

FQRZ=12 TQ 33 
B(Z)-C(Z:) 

NEXTZ 
M=M+1 

IFM. LT.3D THEN3752 
M=W 
PRINT 
RETURN 


0-fVA644^ (^4 ^ 

3900 H=-33333 
3320 FQRZ=12 T083 
3325 fl(:z:)=B(Z) 

3330 NEXTZ 

3335 P=-P 

3340 V=M 

3350 M=12 

3370 GaSUB1400 

3330 IF T=0 THEN 4030 

3330 G0SUB4130 

4000 IF D. LT.F THEN 4030 

4016 H=G 

4020 GQTQ4100 

4030 IFG.LT.H THEN 4050 

4040 H=G 

4050 FQRZ=12 TQ S3 
4060 B(Z)=flCZ:) 

4070 NEXTZ 
4030 M=M+1 

4030 IFM. LT.30 THEN 3370 

4100 M=V 

4105 P=-P 

4110 RETURN 

4130 0=0 

4140 Z=12 

4150 IFB(Z)=P THEN 4130 ' 
4160 IFB(Z)=0 THEN 4300 
4170 G=G-E(Z;) 

4130 GQTQ 4300 
4130 G=G+Ei;Z) 

4300 Z=Z+1 

4400 IFZ. LT.30 THEN 4150 
4500 RETURN 

5000 IFM. LT. . GT. 12 THEN 5100 
5010 EC13:)=5 
5020 E (22:1=5 
5030 E(23;)=5 

5100 IFM. LT. . GT. 13 THEN 5200 
5110 E(13)=5 
5120 E(23;)=5 
5130 E(23:)=5 

5200 IFM.LT. .GT.32 THEN 5300 
5210 EC 72:1 =5 
5220 EC73)=5 
5230 E(33.i=5 

5300 IFM.LT. .GT. 33 THEN 5400 

5310 E(73)=5 

5320 E(73;)=5 

5330 E( 33:1=5 

5400 RETURN 



PAGE ELEVEN 


O'n^fj^LLo PS 

3000 CLS: PRINT 1 2 3 4 5 6 

3100 print; 

3200 FOR Y=S TOl STEP-1 
3300 PRINTY;^^ 

3400 F0RX=1 TO 3 

3500 IFB(X+1+Y*10)=1 THEN 3700 

3550 IF B(X+1+Y*10)=-1 THEN 3300 

3600 PRINT^'^- 

3650 GOTO 8330 

3700 PRINT 

3800 GOTO 3330 

3300 PRINT^^B 

3330 NEXTX 

3335 PRINTY:PRINT 

3336 NEXTY 

3337 PRINT 1234567 

3333 RETURN 

3000 F0RN=11 T030 
3050 READECN) 

3060 NEXTN 
3066 F0RN=1 TO 100 
3063 B(N)=0 
3070 NEXTN 
3074 F0RN=1 TO ID 
3076 BCN:)=3 
3073 BC30+N)=3 
3030 B<10-KN-3:)=3 

3032 B(10XN)=3 
3035 NEXTN 
3037 8(45) =2 

3033 8(46;) =2 
3033 6(55) =2 
3030 BC56)=2 
3172 U=5 
3136 Q=1 
3062 P=-l 
3131 RETURN 

3220 DflTflO, 64, -30, 10, 5, 5, 10, -30, 64, 0 
32L2 DflTflO, — oO, “40, L, 2, 2, 2, —40, — oO, 0 
3224 DflTflO, 10, 2, 5, 1, 1, 5, 2, 10, 0 
3226 DflTflO, 5, 2, 1, 1, 1, 1, 2, 5, 0 
3223 DflTflO, 5, 2, 1, 1, 1, 1, 2, 5, 0 
3230 DflTflO, 10, 2, 5, 1, 1, 5, 2, 10, 0 
3234 DflTflO, -30, -40, 2, 2, 2, 2, -40, -30, 0 
3236 DflTflO, 64, -30, 10, 5, 5, 10, -30, 64, 0 
3333 STOP 
3333 END 


NOTE .LT. MEANS < 


GT. MEANS > 


f=Li r 
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10 

20 

30 

40 

50 

60 

70 

75 

80 

90 


CLS : CCIL0UR4 
PRINT35V3 , "J.JJJJ J 
PR I NT 390, "J J 

PRINT'S! 30 J 

PRINT'S! 70 , "J J 

PRINTS210 , "J JJJJJ 

PR I NTS6 ! 0 , " I N STRUCT I ON 


J .TJJJ"" 

J J J " 

J JJJ.Jb" 

J J " 

J J" 

S -Y'/N" INPUT 


PRINT 

IF I $="'■("" THEN G'OSUB 620 ELSE 90 
PRINT" PRESS AN'Y KE'v' TO CONTINUE" 


li 


91 PRINT 

92 K'$=INKE"f"^ : IF Kf="" THEN 92 
100 CLS 

110 DIMA< 10) .F<9) 

1 20 M=- 1 ; 0=42 : X=88 : P=0 
1 30 RANDOM 
140 FOR C=1 TO 9 
150 A(C)=Q 

160 IF INT';RND(0)+ .5>=0 THEN A<C)=X 
170 NEXT C 
1 S' 0 U U S I J B 3 6 0 
190 M=M+1 
200 N=0 

210 FOR C=1 TO 9 

220 IF A<C)=X THEN N=N+ 1 

230 NEXT C 

240 IF N=1 AND h<5'=X THEN 420 

250 IF M>0 THE!'! PR I NT 33.^0 , " TH.-.T NhS NONE " ;N 

260 PRINTS448 , "NUMBER OP X's IS " ;N 

270 PR I NT '11520 , ""YOU ONLY NEED Ot-iE - IN THE MIDDLE 

280 PRINTai600 , "Wh i ch on& do you want to flip'"'" 

290 IF INKEYTO"" THEN 290 

30 0 H$-=It')KEY$ 

310 N=UAL':AT> : I F Ma OR N>9 THEN 300 

320 P=N 

330 GOSUB 450 

340 GOTO 180 

350 END 

360 : PR I NT 'SO." 


J ■= B C »4oO«.eL. 

\ i ( Mooieu V ^ 

t ( t^oDieu y ) 


Adapted from Tim Hartnell's book 
Giant Book of Games 
(Fontana, 1983) 


by KEITH McGILL 


SQUhRE" 
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370 

IF POO THEN 

PR I NT 340 , "You 

i] 

pp5d " ; P 


3S0 

PRINT31 30 , " 1 

2 3",CHRf<A 

K 1 ) 

; CHRT'; A( 2) ) ; " " 

C H R; 5- ( A '■ 3 > ) 

390 

PR I NT 321 0 . " 4 

5 6",CHR^<A 

< 4.) 

; CHRT':. A':. 5;' ) ; " " 

UHR$ A’: 6,:' > 

40 0 

PRINT3290 , "7 

S 9",CHR$<A 

< 7) 

" ;CHR 3) " " 

'..'HRS' '■ A I 9 ) ) 

410 

RETURN 





420 

PRINT: PRINT 





430 

P R I NT 3 8 8 0 , " Y 0 U S 0 LU ED IT I N " 

;M;" NONES" 


440 

END 





450 

REM: IF A<N>= 

v; THEN RETURN 




460 

IF N=1 THEN 

F( 1 )=2:F<2)=4: 

F K y 

; F< 4) = 1 0 


470 

IF N=2 THEN 

F-; 1 ) = 1 :F(2) = 3: 

F< 3 

) =•. 1 9 : F ( 4 ' - 1 0 


4 8 0 

IF N=3 THEN 

F< 1 >=2:F<2)=5: 

F<3 

' =6 : F < 4 ) = 1 0 


490 

IF N=4 THEN 

F( 1 oi :F(2)=7: 

F < 3 

)=10 ;F(4>=10 


50 0 

IF N=5 THEN 

F< 1 ) = 2:F(2:) = 4: 

F( 3 

>2:9 :F( 4)^6 


510 

IF N=6 THEN 

F ' . 1 ) = ! F ' % 2 ' ~ y \ 

Fk3 

) “ i 0 ; F 4 ) 1 0 


520 

IF 10 7 THEN 

F( 1 )=4:F<2)-5: 

F ■: 3 

> = 3 ; F ( 4 ' — 1 0 


530 

IF 103 THEN 

F< 1> = 7 ; F'' 2> = 9 ; 

F( 3 

> 1 0 ; F ' ■ 4 ) = 1 0 


540 

IF 109 THEN 

F(1 )=8 : F( 2>=5 : 

F 3 

.') = 6 : F ( 4 1 = 1 0 


550 

FOR G=1 TO 4 





560 

F=0 





570 

1 R A 1 R 1 G ) .) 

THEN F=1:A':F< 

) ) 

=Q:GOTO 5v0 



530 IF A':F 
590 NEXT G 
60 0 IF A''N)=X 
610 RETURN 

620 REM : I NSTRUCT I ONS 
625 RRINT 

630 RRINT "THE AIM OF 


G)>=Q THEN A(:F(G>)=X. 

THEN A<N)=Q ELSE IF A(N)=Q THEN A<N:)=X 

THE GAME IS TO FINISH WITH ONLY ONE 


- IN THE 


6 T 0 
650 
660 
670 
630 
690 
700 

7 1 0 
715 
720 


PRINT 

PRINT" FLIPPING THEN CORNER PIECES WILL CHANGE THE CORNER FOUR" 


PRINT 

PRINT" flipping THE MIDDLE PIECE OF A 
PRINT 


PRIMT"FLIPPni6 THE CENTRE PIECE WILL 
PRINT 

PR I NT "THE PIECE . OU FLIP WILL ALWAYS 
PR HIT 


SIDE WILLCHANGE THAT SIDE" 
CHANGE ALL FOUR MIDDLE PIECES 
CHANGE" 


RETURN 


MIDDLE 



FORM FOR COLOUR GENIE SOFTWARE AND PERIPHERALS 


ADDRESS. 


JUANTITY 


PLEASE SUPPLY THE FOLLOWING ITEMS:- 

ITEM COST 









